www.gusucode.com > 6KBBS ASP版 V7.1 > 6KBBS ASP版 V7.1\code\bbs\inc\Page.asp
<% Function pagination(pagecount,urlstr) Dim wzpage,wzpagecount,pagenum,pagetemp If Len(Request.QueryString("page"))<>0 Then wzpage = clng(Request.QueryString("page")) Else wzpage =1 End If If wzpage <= 0 Then wzpage =1 pagenum = (wzpage \ 10)*10+1 If wzpage mod 10 = 0 Then pagenum = (wzpage \ 10)*10-9 If wzpage > 10 Then pagetemp=pagetemp&"<font face=""webdings"">" pagetemp=pagetemp&"<a href=""?"&urlstr&"&page=1"" title=""首页"">9</a>" pagetemp=pagetemp&"<a href=""?"&urlstr&"&page="& pagenum-1 &""" title=""前十页"">7</a>" pagetemp=pagetemp&"</font> " End If For pagenum = pagenum To pagenum + 9 If pagenum = wzpage Then pagetemp=pagetemp&"<font color=""#ff0000"">" pagetemp=pagetemp&" "& pagenum &" " pagetemp=pagetemp&"</font>" Else pagetemp=pagetemp&" <a href=""?"&urlstr&"&page="& pagenum &""">" pagetemp=pagetemp&""& pagenum &"" pagetemp=pagetemp&"</a> " End If If pagenum >= pagecount Then Exit For Next If wzpage < (pagecount - (pagecount \ 10)) Then pagetemp=pagetemp&"<font face=""webdings"">" pagetemp=pagetemp&"<a href=""?"&urlstr&"&page="& pagenum &""" title=""后十页"">8</a>" pagetemp=pagetemp&"<a href=""?"&urlstr&"&page="& pagecount &""" title=""末页"">:</a>" pagetemp=pagetemp&"</font>" End If pagination=pagetemp End Function %>